home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / plasm.lha / plasma.asm < prev    next >
Encoding:
Assembly Source File  |  1990-09-14  |  17.0 KB  |  613 lines
  1. ***********************************************************************
  2. ;THIS SOURCE WAS WRITTEN BY RENE OLSTHOORN.
  3. ;
  4. ;IT'S A 140 LINES RGB-PLASMA(AND SOME RASTERLINES LEFT).
  5. ;ENJOY THE SOURCE, AND USE IT IF YOU LIKE.
  6. ;IF YOU DO, JUST PUT ME INTO YOUR GREETINGSLIST OF YOUR DEMO/INTRO.
  7. ;ASSEMBLE ONLY WITH DEVPAC 2 AND NO INCLUDE FILES NEEDED.
  8. ***********************************************************************
  9.  
  10.     opt c+
  11.     SECTION PROGRAMM,CODE_C
  12. ; this is the callexec-macro (_sysbase = execbase = $4).
  13. CALLEXEC: MACRO
  14.     move.l    (_SysBase).w,a6
  15.     jsr    _LVO\1(a6)
  16.     ENDM
  17.  
  18. start_the_program:
  19.     bsr    clear_registers
  20.     move.w    #$4000,INTENA(a5)
  21.     move.l    #GRNAME,a1
  22.     moveq    #0,d0
  23.     CALLEXEC OpenLibrary
  24.     move.l    d0,_GFXBASE
  25. ;put value's in copper.
  26.     bsr    clear_registers
  27.     lea.l    plasma_copper,a0
  28.     movea.w    #$203f,a1
  29.     move.w    plasma_lijnen,d2
  30. plasma_cop_loop:
  31.     adda.w    #$0100,a1
  32.     move.w    a1,(a0)+
  33.     move.w    #wait,(a0)+
  34.     move.w    #5-1,d3
  35. plasma_sub_cop_loop:
  36.     move.w    #color10,(a0)+    ;comb 1010
  37.     clr.w    (a0)+
  38.     move.w    #color13,(a0)+    ;comb 1101
  39.     clr.w    (a0)+
  40.     move.w    #color06,(a0)+    ;comb 0110
  41.     clr.w    (a0)+
  42.     move.w    #color11,(a0)+    ;comb 1011
  43.     clr.w    (a0)+
  44.     move.w    #color05,(a0)+    ;comb 0101
  45.     clr.w    (a0)+
  46.     move.w    #color02,(a0)+    ;comb 0010
  47.     clr.w    (a0)+
  48.     move.w    #color09,(a0)+    ;comb 1001
  49.     clr.w    (a0)+
  50.     move.w    #color04,(a0)+    ;comb 0100
  51.     clr.w    (a0)+
  52.     dbra    d3,plasma_sub_cop_loop
  53.     dbra    d2,plasma_cop_loop
  54.  
  55.     move.l    #plasma_plane,d0
  56.     move.w    d0,BITPL1+6
  57.     swap    d0
  58.     move.w    d0,BITPL1+2
  59.     move.l    #plasma_plane+2,d0
  60.     move.w    d0,BITPL2+6
  61.     swap    d0
  62.     move.w    d0,BITPL2+2
  63.     move.l    #plasma_plane+2,d0
  64.     move.w    d0,BITPL3+6
  65.     swap    d0
  66.     move.w    d0,BITPL3+2
  67.     move.l    #plasma_plane+4,d0
  68.     move.w    d0,BITPL4+6
  69.     swap    d0
  70.     move.w    d0,BITPL4+2
  71.  
  72.     move.w    #%0000000000101111,DMACON(a5)
  73.     move.l    #copper,COP1LCH(a5)
  74.     move.w    #0,COPJMP1(a5)
  75.     move.w    #%1000011110000000,DMACON(a5)
  76.  
  77. waitraster0:
  78.     cmpi.b    #115,VHPOSR(a5)
  79.     bne.s    waitraster0
  80.  
  81.     move.w    #%0000010000000000,DMACON(a5) ;set blitter prior.
  82.     bsr    clear_registers
  83.     bsr    plasma_horizontaal
  84.     move.w    #%1000010000000000,DMACON(a5)
  85.     bsr    clear_registers
  86.     bsr    plasma_figuur
  87.     lea.l    $dff000,a5
  88.  
  89. check_left:
  90.     btst    #6,CIAAPRA    
  91.     bne.s    waitraster0    
  92. helaas:
  93.     bsr.s    clear_registers
  94.     move.w    #$03a0,DMACON(a5)
  95.     move.l    _GFXBASE,a6
  96.     move.l    STARTLIJST(a6),COP1LC(a5)
  97.     move.w    #0,COPJMP1(a5)
  98.     move.w    #$83e0,DMACON(a5)
  99.     move.l    _GFXBASE,a1
  100.     CALLEXEC CloseLibrary
  101.     move.w    #$c000,INTENA(a5)
  102.     moveq    #0,d0
  103.     rts
  104.  
  105. clear_registers:    
  106.     movem.l    clean,d0-a6
  107.     rts
  108. ********************************************************************
  109. plasma_horizontaal:
  110.     move.l    #-1,BLTAFWM(a5)
  111.     move.w    #0,BLTCON1(a5)
  112.     move.l    #$00000006,BLTAMOD(a5)
  113.     lea.l    plasma_regel,a3
  114. ;    move.l    a3,BLTAPTH(a5)
  115.  
  116.     lea.l    plasma_plane,a0
  117.     move.l    fhor,d7
  118.  
  119.     move.w    qhor,d4
  120.     lea.l    plasma_sinus,a1
  121.     add.w    d4,plasma_sinus_add
  122.     adda.w    plasma_sinus_add,a1
  123.     cmpa.l    #end_plasma_sinus,a1
  124.     bcs.s    reset_add
  125.     suba.l    #end_plasma_sinus,a1
  126.     move.w    a1,plasma_sinus_add
  127.     adda.l    #plasma_sinus,a1
  128. reset_add:
  129.     move.w    plasma_lijnen,d2
  130.  
  131. place_loop:
  132.     moveq    #0,d0
  133.     move.b    (a1),d0
  134.     adda.l    d7,a1
  135.     cmpa.l    #end_plasma_sinus,a1
  136.     bcs.s    double_boble
  137.     suba.l    #end_plasma_sinus-plasma_sinus,a1
  138. double_boble:
  139.     move.b    d0,d1
  140.     andi.b    #$f0,d1
  141.     lsr.b    #3,d1
  142.     andi.b    #$0f,d0
  143.     ror.w    #4,d0
  144.  
  145.     ori.w    #%0000100111110000,d0
  146.     move.w    d0,BLTCON0(a5)    
  147.     move.l    a3,BLTAPTH(a5)
  148.     adda.l    d1,a0
  149.     move.l    a0,BLTDPTH(a5)
  150.     move.w    #1*64+19,BLTSIZE(a5)
  151.  
  152.     suba.l    d1,a0
  153.     adda.l    #44,a0
  154.     dbra    d2,place_loop
  155.     rts
  156. *************************************************************************
  157. plasma_figuur:
  158.     move.l    #-1,BLTAFWM(a5)
  159.     move.l    #$0ffe0000,BLTCON0(a5)    
  160.     move.w    #0,BLTAMOD(a5)
  161.     move.l    #0,BLTCMOD(a5)
  162.     move.w    #162,BLTDMOD(a5)
  163.  
  164.     move.l    fig1,d5
  165.     movea.l    d5,a0
  166.     move.l    fig2,d5
  167.     movea.l    d5,a1
  168.     move.l    fig3,d5
  169.     movea.l    d5,a2
  170.     lea.l    plasma_copper+6,a3    ;dest.
  171.  
  172.     move.l    fvert1,d5
  173.     move.l    fvert2,d6
  174.     move.l    fvert3,d7
  175.  
  176.     move.w    qvert1,d4
  177.     lea.l    plasma_verticaal,a4
  178.     add.w    d4,figuur_teller1
  179.     adda.w    figuur_teller1,a4
  180.     cmpa.l    #end_plasma_verticaal,a4
  181.     bcs.s    reset_add1
  182.     suba.l    #end_plasma_verticaal,a4
  183.     move.w    a4,figuur_teller1
  184.     adda.l    #plasma_verticaal,a4
  185. reset_add1:
  186.  
  187.     move.w    qvert2,d4
  188.     lea.l    plasma_verticaal,a5
  189.     add.w    d4,figuur_teller2
  190.     adda.w    figuur_teller2,a5
  191.     cmpa.l    #end_plasma_verticaal,a5
  192.     bcs.s    reset_add2
  193.     suba.l    #end_plasma_verticaal,a5
  194.     move.w    a5,figuur_teller2
  195.     adda.l    #plasma_verticaal,a5
  196. reset_add2:
  197.  
  198.     move.w    qvert3,d4
  199.     lea.l    plasma_verticaal,a6
  200.     add.w    d4,figuur_teller3
  201.     adda.w    figuur_teller3,a6
  202.     cmpa.l    #end_plasma_verticaal,a6
  203.     bcs.s    reset_add3
  204.     suba.l    #end_plasma_verticaal,a6
  205.     move.w    a6,figuur_teller3
  206.     adda.l    #plasma_verticaal,a6
  207. reset_add3:
  208.     
  209.     moveq    #5*8-6-1,d3
  210. perfect_loop:
  211.     moveq    #0,d0
  212.     move.b    (a4),d0
  213.     adda.l    d5,a4
  214.     cmpa.l    #end_plasma_verticaal,a4
  215.     bcs.s    reset_raket1
  216.     suba.l    #end_plasma_verticaal-plasma_verticaal,a4
  217. reset_raket1:
  218.     lsl.w    #1,d0
  219.     adda.l    d0,a0
  220.  
  221.     moveq    #0,d1
  222.     move.b    (a5),d1
  223.     adda.l    d6,a5
  224.     cmpa.l    #end_plasma_verticaal,a5
  225.     bcs.s    reset_raket2
  226.     suba.l    #end_plasma_verticaal-plasma_verticaal,a5
  227. reset_raket2:
  228.     lsl.w    #1,d1
  229.     adda.l    d1,a1
  230.  
  231.     moveq    #0,d2
  232.     move.b    (a6),d2
  233.     adda.l    d7,a6
  234.     cmpa.l    #end_plasma_verticaal,a6
  235.     bcs.s    reset_raket3
  236.     suba.l    #end_plasma_verticaal-plasma_verticaal,a6
  237. reset_raket3:
  238.     lsl.w    #1,d2
  239.     adda.l    d2,a2
  240.  
  241.     move.l    a0,BLTAPTH+CUSTOM
  242.     move.l    a1,BLTBPTH+CUSTOM
  243.     move.l    a2,BLTCPTH+CUSTOM
  244.     move.l    a3,BLTDPTH+CUSTOM
  245.     move.w    #210*64+1,BLTSIZE+CUSTOM
  246.     suba.l    d0,a0
  247.     suba.l    d1,a1
  248.     suba.l    d2,a2
  249.     addq.l    #4,a3
  250.     dbra    d3,perfect_loop
  251.     rts
  252.  
  253.     SECTION variables,DATA_C
  254. _GFXBASE:    dc.l    0
  255. clean:        dcb.l    13,0
  256.         dc.l    $dff000,0
  257. ******************************************************
  258. ;        PLASMA VARIABLE'S
  259. ******************************************************
  260. plasma_sinus_add: dc.w    0
  261. plasma_lijnen:    dc.w    210-1
  262. figuur_teller1:    dc.w    0
  263. figuur_teller2:    dc.w    0
  264. figuur_teller3:    dc.w    0
  265. qvert1:        dc.w    4
  266. qvert2:        dc.w    3
  267. qvert3:        dc.w    2
  268. fvert1:        dc.l    4
  269. fvert2:        dc.l    5
  270. fvert3:        dc.l    6
  271. fig1:        dc.l    figuur1
  272. fig2:        dc.l    figuur2
  273. fig3:        dc.l    figuur3
  274. qhor:        dc.w    0
  275. fhor:        dc.l    60
  276. step_counter:    dc.w    0
  277. fvert_extra:    dc.l    figuur2
  278. GRNAME:        dc.b    "graphics.library",0
  279.  
  280.  SECTION copperlijst,DATA_C
  281. copper:
  282. ; start v/d diwstart enz.
  283.     dc.w    DIWSTRT,$29b8,DIWSTOP,$2f90 ;DIWSTART,DIWSTOP
  284.     dc.w    DDFSTRT,$0038,DDFSTOP,$00d0 ;NORMAL
  285.     dc.w    BPL1MOD,$0000,BPL2MOD,$0000 ;GEEN SPRONGEN
  286.     dc.w    BPLCON0,0 
  287.     dc.w    BPLCON1,0
  288.     dc.w    BPLCON2,0
  289.     dc.w    COLOR00,0
  290.     dc.w    $120f,wait 
  291.     dc.w    BPLCON0,0 
  292.     dc.w    BPLCON2,%0000000001110111
  293.     dc.w    $1f0f,wait
  294.     dc.w    COLOR00,0
  295.     dc.w    DDFSTRT,$0038,DDFSTOP,$00d0
  296.     dc.w    BPL1MOD,4,BPL2MOD,4
  297.     dc.w    BPLCON1,%0000000010000000
  298. BITPL1:    dc.w    BPL1PTH,0,BPL1PTL,0
  299. BITPL2:    dc.w    BPL2PTH,0,BPL2PTL,0
  300. BITPL3:    dc.w    BPL3PTH,0,BPL3PTL,0
  301. BITPL4:    dc.w    BPL4PTH,0,BPL4PTL,0
  302.     dc.w    $210f,wait
  303.     dc.w    BPLCON0,%0100000000000000 
  304. plasma_copper:
  305.     dcb.w    (2*8*5+2)*210,0
  306.  
  307.     dc.w    BPLCON0,%0000000000000000
  308.     dc.w    ntsc,wait
  309.     dc.w    end,wait
  310.  
  311.  cnop 0,4
  312. plasma_plane:
  313.     dcb.b    (5*8+4)*210,0
  314.     dc.b    0
  315.     even
  316. plasma_regel:
  317.     dc.l    $00ff00ff,$ff00ff00
  318.     dc.l    $00ff00ff,$ff00ff00
  319.     dc.l    $00ff00ff,$ff00ff00
  320.     dc.l    $00ff00ff,$ff00ff00
  321.     dc.l    $00ff00ff,$ff00ff00
  322.     dc.l    $00ff00ff
  323. plasma_sinus:
  324.     dc.b    27,27,27,28,28,28,28,29,29,29,29,30
  325.     dc.b    30,30,30,31,31,31,31,31,32,32,32,32
  326.     dc.b    33,33,33,33,34,34,34,34,34,35,35,35
  327.     dc.b    35,36,36,36,36,36,37,37,37,37,38,38
  328.     dc.b    38,38,38,39,39,39,39,39,40,40,40,40
  329.     dc.b    40,41,41,41,41,42,42,42,42,42,42,43
  330.     dc.b    43,43,43,43,44,44,44,44,44,45,45,45
  331.     dc.b    45,45,45,46,46,46,46,46,46,47,47,47
  332.     dc.b    47,47,47,48,48,48,48,48,48,48,49,49
  333.     dc.b    49,49,49,49,49,50,50,50,50,50,50,50
  334.     dc.b    50,50,51,51,51,51,51,51,51,51,51,52
  335.     dc.b    52,52,52,52,52,52,52,52,52,52,53,53
  336.     dc.b    53,53,53,53,53,53,53,53,53,53,53,53
  337.     dc.b    53,53,54,54,54,54,54,54,54,54,54,54
  338.     dc.b    54,54,54,54,54,54,54,54,54,54,54,54
  339.     dc.b    54,54,54,54,54,54,54,54,54,54,54,54
  340.     dc.b    54,54,54,54,54,54,54,54,54,54,54,53
  341.     dc.b    53,53,53,53,53,53,53,53,53,53,53,53
  342.     dc.b    53,53,53,52,52,52,52,52,52,52,52,52
  343.     dc.b    52,52,51,51,51,51,51,51,51,51,51,50
  344.     dc.b    50,50,50,50,50,50,50,50,49,49,49,49
  345.     dc.b    49,49,49,48,48,48,48,48,48,48,47,47
  346.     dc.b    47,47,47,47,46,46,46,46,46,46,45,45
  347.     dc.b    45,45,45,45,44,44,44,44,44,43,43,43
  348.     dc.b    43,43,42,42,42,42,42,42,41,41,41,41
  349.     dc.b    41,40,40,40,40,39,39,39,39,39,38,38
  350.     dc.b    38,38,38,37,37,37,37,36,36,36,36,36
  351.     dc.b    35,35,35,35,34,34,34,34,34,33,33,33
  352.     dc.b    33,32,32,32,32,31,31,31,31,31,30,30
  353.     dc.b    30,30,29,29,29,29,28,28,28,28,27,27
  354.     dc.b    27,27,27,26,26,26,26,25,25,25,25,24
  355.     dc.b    24,24,24,23,23,23,23,23,22,22,22,22
  356.     dc.b    21,21,21,21,20,20,20,20,20,19,19,19
  357.     dc.b    19,18,18,18,18,18,17,17,17,17,16,16
  358.     dc.b    16,16,16,15,15,15,15,15,14,14,14,14
  359.     dc.b    14,13,13,13,13,12,12,12,12,12,12,11
  360.     dc.b    11,11,11,11,10,10,10,10,10,9,9,9
  361.     dc.b    9,9,9,8,8,8,8,8,8,7,7,7
  362.     dc.b    7,7,7,6,6,6,6,6,6,6,5,5
  363.     dc.b    5,5,5,5,5,4,4,4,4,4,4,4
  364.     dc.b    4,4,3,3,3,3,3,3,3,3,3,2
  365.     dc.b    2,2,2,2,2,2,2,2,2,2,1,1
  366.     dc.b    1,1,1,1,1,1,1,1,1,1,1,1
  367.     dc.b    1,1,0,0,0,0,0,0,0,0,0,0
  368.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  369.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  370.     dc.b    0,0,0,0,0,0,0,0,0,0,0,1
  371.     dc.b    1,1,1,1,1,1,1,1,1,1,1,1
  372.     dc.b    1,1,1,2,2,2,2,2,2,2,2,2
  373.     dc.b    2,2,3,3,3,3,3,3,3,3,3,4
  374.     dc.b    4,4,4,4,4,4,4,4,5,5,5,5
  375.     dc.b    5,5,5,6,6,6,6,6,6,6,7,7
  376.     dc.b    7,7,7,7,8,8,8,8,8,8,9,9
  377.     dc.b    9,9,9,9,10,10,10,10,10,11,11,11
  378.     dc.b    11,11,12,12,12,12,12,12,13,13,13,13
  379.     dc.b    13,14,14,14,14,15,15,15,15,15,16,16
  380.     dc.b    16,16,16,17,17,17,17,18,18,18,18,18
  381.     dc.b    19,19,19,19,20,20,20,20,20,21,21,21
  382.     dc.b    21,22,22,22,22,23,23,23,23,23,24,24
  383.     dc.b    24,24,25,25,25,25,26,26,26,26,27,27
  384. end_plasma_sinus:
  385. plasma_verticaal:
  386.     dc.b    27,27,28,28,29,29,30,30,31,31,32,32
  387.     dc.b    33,33,34,34,34,35,35,36,36,37,37,38
  388.     dc.b    38,38,39,39,40,40,40,41,41,42,42,42
  389.     dc.b    43,43,44,44,44,45,45,45,46,46,46,47
  390.     dc.b    47,47,48,48,48,49,49,49,49,50,50,50
  391.     dc.b    50,51,51,51,51,51,52,52,52,52,52,53
  392.     dc.b    53,53,53,53,53,53,53,54,54,54,54,54
  393.     dc.b    54,54,54,54,54,54,54,54,54,54,54,54
  394.     dc.b    54,54,54,54,54,54,53,53,53,53,53,53
  395.     dc.b    53,53,52,52,52,52,52,51,51,51,51,51
  396.     dc.b    50,50,50,50,49,49,49,49,48,48,48,47
  397.     dc.b    47,47,46,46,46,45,45,45,44,44,44,43
  398.     dc.b    43,42,42,42,41,41,41,40,40,39,39,38
  399.     dc.b    38,38,37,37,36,36,35,35,34,34,34,33
  400.     dc.b    33,32,32,31,31,30,30,29,29,28,28,27
  401.     dc.b    27,27,26,26,25,25,24,24,23,23,22,22
  402.     dc.b    21,21,20,20,20,19,19,18,18,17,17,16
  403.     dc.b    16,16,15,15,14,14,14,13,13,12,12,12
  404.     dc.b    11,11,10,10,10,9,9,9,8,8,8,7
  405.     dc.b    7,7,6,6,6,5,5,5,5,4,4,4
  406.     dc.b    4,3,3,3,3,3,2,2,2,2,2,1
  407.     dc.b    1,1,1,1,1,1,1,0,0,0,0,0
  408.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  409.     dc.b    0,0,0,0,0,0,1,1,1,1,1,1
  410.     dc.b    1,1,2,2,2,2,2,3,3,3,3,3
  411.     dc.b    4,4,4,4,5,5,5,5,6,6,6,7
  412.     dc.b    7,7,8,8,8,9,9,9,10,10,10,11
  413.     dc.b    11,12,12,12,13,13,13,14,14,15,15,16
  414.     dc.b    16,16,17,17,18,18,19,19,20,20,20,21
  415.     dc.b    21,22,22,23,23,24,24,25,25,26,26,27
  416. end_plasma_verticaal:
  417. figuur1:
  418.     dc.w    $0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0d00,$0d00,$0d00
  419.     dc.w    $0c00,$0c00,$0c00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00
  420.     dc.w    $0900,$0900,$0900,$0800,$0800,$0800,$0700,$0700,$0700
  421.     dc.w    $0600,$0600,$0600,$0500,$0500,$0500,$0400,$0400,$0400
  422.     dc.w    $0300,$0300,$0300,$0200,$0200,$0200,$0100,$0100,$0100
  423.     dcb.w    18,0
  424.     dc.w    $0100,$0100,$0100,$0100,$0200,$0200,$0200,$0200
  425.     dc.w    $0300,$0300,$0300,$0300,$0400,$0400,$0400,$0400
  426.     dc.w    $0500,$0500,$0500,$0500,$0600,$0600,$0600,$0600
  427.     dc.w    $0700,$0700,$0700,$0700,$0800,$0800,$0800,$0800
  428.     dc.w    $0900,$0900,$0900,$0900,$0a00,$0a00,$0a00,$0a00
  429.     dc.w    $0b00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00,$0c00
  430.     dc.w    $0d00,$0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0e00
  431.     dc.w    $0f00,$0f00,$0f00,$0f00
  432.  
  433.     dc.w    $0f00,$0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0e00
  434.     dc.w    $0d00,$0d00,$0d00,$0d00,$0c00,$0c00,$0c00,$0c00
  435.     dc.w    $0b00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00,$0a00
  436.     dc.w    $0900,$0900,$0900,$0900,$0800,$0800,$0800,$0800
  437.     dc.w    $0700,$0700,$0700,$0700,$0600,$0600,$0600,$0600
  438.     dc.w    $0500,$0500,$0500,$0500,$0400,$0400,$0400,$0400
  439.     dc.w    $0300,$0300,$0300,$0300,$0200,$0200,$0200,$0200
  440.     dc.w    $0100,$0100,$0100
  441.     dcb.w    18,0
  442.     dc.w    $0100,$0100,$0100,$0200,$0200,$0200,$0300,$0300,$0300
  443.     dc.w    $0400,$0400,$0400,$0500,$0500,$0500,$0600,$0600,$0600
  444.     dc.w    $0700,$0700,$0700,$0800,$0800,$0800,$0900,$0900,$0900
  445.     dc.w    $0a00,$0a00,$0a00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00
  446.     dc.w    $0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0f00,$0f00,$0f00
  447.  
  448.     dc.w    $0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0d00,$0d00,$0d00
  449.     dc.w    $0c00,$0c00,$0c00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00
  450.     dc.w    $0900,$0900,$0900,$0800,$0800,$0800,$0700,$0700,$0700
  451.     dc.w    $0600,$0600,$0600,$0500,$0500,$0500,$0400,$0400,$0400
  452.     dc.w    $0300,$0300,$0300,$0200,$0200,$0200,$0100,$0100,$0100
  453.     dcb.w    18,0
  454.     dc.w    $0100,$0100,$0100,$0200,$0200,$0200,$0300,$0300,$0300
  455.     dc.w    $0400,$0400,$0400,$0500,$0500,$0500,$0600,$0600,$0600
  456.     dc.w    $0700,$0700,$0700,$0800,$0800,$0800,$0900,$0900,$0900
  457.     dc.w    $0a00,$0a00,$0a00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00
  458.     dc.w    $0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0f00,$0f00,$0f00
  459.  
  460. figuur2:
  461.     dc.w    $00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
  462.     dc.w    $00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
  463.     dc.w    $0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
  464.     dc.w    $0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
  465.     dc.w    $0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
  466.     dcb.w    36,0
  467.     dc.w    $0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
  468.     dc.w    $0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
  469.     dc.w    $0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
  470.     dc.w    $00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
  471.     dc.w    $00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0
  472.  
  473.     dc.w    $00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
  474.     dc.w    $00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
  475.     dc.w    $0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
  476.     dc.w    $0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
  477.     dc.w    $0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
  478.     dcb.w    36,0
  479.     dc.w    $0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
  480.     dc.w    $0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
  481.     dc.w    $0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
  482.     dc.w    $00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
  483.     dc.w    $00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0
  484.  
  485.     dc.w    $00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
  486.     dc.w    $00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
  487.     dc.w    $0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
  488.     dc.w    $0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
  489.     dc.w    $0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
  490.     dcb.w    36,0
  491.     dc.w    $0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
  492.     dc.w    $0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
  493.     dc.w    $0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
  494.     dc.w    $00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
  495.     dc.w    $00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0
  496.  
  497. figuur3:
  498.     dc.w    $000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
  499.     dc.w    $000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
  500.     dc.w    $0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
  501.     dc.w    $0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
  502.     dc.w    $0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
  503.     dcb.w    18,0
  504.     dc.w    $0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
  505.     dc.w    $0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
  506.     dc.w    $0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
  507.     dc.w    $000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
  508.     dc.w    $000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f
  509.  
  510.     dc.w    $000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
  511.     dc.w    $000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
  512.     dc.w    $0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
  513.     dc.w    $0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
  514.     dc.w    $0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
  515.     dcb.w    18,0
  516.     dc.w    $0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
  517.     dc.w    $0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
  518.     dc.w    $0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
  519.     dc.w    $000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
  520.     dc.w    $000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f
  521.  
  522.     dc.w    $000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
  523.     dc.w    $000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
  524.     dc.w    $0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
  525.     dc.w    $0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
  526.     dc.w    $0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
  527.     dcb.w    18,0
  528.     dc.w    $0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
  529.     dc.w    $0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
  530.     dc.w    $0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
  531.     dc.w    $000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
  532.     dc.w    $000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f
  533.  
  534. _LVOCloseLibrary    EQU    -414 
  535. _LVOOpenLibrary    EQU    -552 
  536. _SysBase    EQU    4
  537.  
  538. ; custom adressen :
  539. DMACONR        = $002
  540. VHPOSR        = $006
  541. BLTCON0        = $040
  542. BLTCON1        = $042
  543. BLTAFWM     = $044
  544. BLTALWM     = $046
  545. BLTCPTH        = $048
  546. BLTCPTL     = $04a
  547. BLTBPTH        = $04c
  548. BLTBPTL     = $04e
  549. BLTAPTH        = $050
  550. BLTAPTL     = $052
  551. BLTDPTH        = $054
  552. BLTDPTL     = $056
  553. BLTSIZE     = $058
  554. BLTCMOD        = $060
  555. BLTBMOD        = $062
  556. BLTAMOD        = $064
  557. BLTDMOD        = $066
  558. COP1LC        = $080
  559. COP1LCH        = $080
  560. COP1LCL        = $082
  561. COPJMP1     = $088
  562. DIWSTRT        = $08e
  563. DIWSTOP     = $090
  564. DDFSTRT     = $092
  565. DDFSTOP     = $094
  566. DMACON        = $096
  567. INTENA      = $09a
  568. BPL1PTH     = $0e0
  569. BPL1PTL     = $0e2
  570. BPL2PTH     = $0e4
  571. BPL2PTL     = $0e6
  572. BPL3PTH     = $0e8
  573. BPL3PTL     = $0ea
  574. BPL4PTH     = $0ec
  575. BPL4PTL     = $0ee
  576. BPLCON0     = $100
  577. BPLCON1     = $102
  578. BPLCON2     = $104
  579. BPL1MOD     = $108
  580. BPL2MOD     = $10a
  581. COLOR00     = $180
  582. COLOR02     = $184
  583. COLOR04     = $188
  584. COLOR05     = $18a
  585. COLOR06     = $18c 
  586. COLOR09     = $192
  587. COLOR10     = $194
  588. COLOR11     = $196
  589. COLOR13     = $19a
  590. color00     = $180
  591. color02     = $184
  592. color04     = $188
  593. color05     = $18a
  594. color06     = $18c 
  595. color09     = $192
  596. color10     = $194
  597. color11     = $196
  598. color13     = $19a
  599.  
  600. CIAAPRA        = $bfe001
  601. CUSTOM      = $dff000
  602.  
  603. STARTLIJST     = 38
  604.  
  605. WAIT        = $fffe
  606. END        = $ffff
  607. NTSC        = $ffdf
  608. wait        = $fffe
  609. end        = $ffff
  610. ntsc        = $ffdf
  611.  
  612.  
  613.